home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / util / misc / ClipHandler1_0.lha / Install ClipHandler < prev   
Encoding:
Text File  |  1995-03-29  |  1.6 KB  |  84 lines
  1. ; Installer script for ClipHandler
  2. ; $VER: Install ClipHandler 37.1 (29.3.95)
  3.  
  4. (complete 0)
  5.  
  6. (set @l-dest "L:")
  7. (set @permanent-dest "DEVS:DOSDrivers/")
  8. (set @default-dest "SYS:Storage/DOSDrivers/")
  9.  
  10. (set #handler "L/clip-handler")
  11. (set #driver "Devs/DOSDrivers/")
  12.  
  13. ; ***************************************************************************
  14. ; English strings
  15.  
  16. (set #bad-kick
  17.     (cat "You must have AmigaDOS 2.04 or higher to use ClipHandler!"))
  18.  
  19. (set #welcome
  20.     (cat "\nClipHandler installation\n\n\n"
  21.        "This script installs ClipHandler 1.0\n"
  22.        "on your Amiga.\n\n\n\n"
  23.        "ClipHandler is\n"
  24.        "Copyright © 1995 Michael Letowski\n"
  25.        "All rights reserved.\n\n"))
  26.  
  27. (set #where-driver
  28.     (cat "Should ClipHandler be installed permanently?"))
  29.  
  30. (set #where-help
  31.     (cat "\nDOS devices can be installed permanently"
  32.          " (they are mounted on each reboot)\n"
  33.        " or non-permanently (so they can be mounted at"
  34.        " any time.)\n"))
  35.  
  36. ; ***************************************************************************
  37. ; Install MCommands
  38.  
  39. ; Check AmigaDOS version
  40. (set #version (/ (getversion) 65536))
  41. (if (< #version 37)
  42.     (
  43.         (abort #bad-kick)
  44.     )
  45. )
  46.  
  47. (message #welcome)
  48.  
  49. (welcome)
  50. (set old_level @user-level)
  51.  
  52. (user 2)
  53. (set #perm
  54.     (askbool
  55.         (prompt #where-driver)
  56.         (help #where-help)
  57.         (default 0))
  58. )
  59. (if #perm
  60.     (set @driver-dest @permanent-dest)
  61.     (set @driver-dest @default-dest)
  62. )
  63.  
  64. ; Do copy
  65. (user old_level)
  66.  
  67. ; Copy handler
  68. (copylib
  69.     (source #handler)
  70.     (dest @l-dest)
  71. )
  72. (complete 50)
  73.  
  74. ; Copy DOSDriver
  75. (copyfiles
  76.     (source #driver)
  77.     (dest @driver-dest)
  78.     (all)
  79. )
  80. (complete 100)
  81.  
  82. (set @default-dest "")
  83. (exit)
  84.